home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed3.d64 / quiz addition (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  195 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 27 "TIMES TIMER.40"   PRG
  9. 35 IFUW=0THENSYSUU,15
  10. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  11. 45 GETUI$:IFUI$=""THEN45
  12. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  13. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  14. 60 IFUR=ULTHEN45
  15. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  29. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  30. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  31. 400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
  32. 405 PRINT"           [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  33. 420 [153]"  (null)ETS PRACTICE ATNSTR$STR$RIGHT$(null)RIGHT$(null)(null)! RIGHT$ WILL ASK  "
  34. 422 [153]" YOU A SERIES OF MATH PROBLEMS USING"
  35. 424 [153]" YOUR KNOWLEDGE OF ADDING TWO NUMBERS."
  36. 426 [153]" (null)OU WILL HAVE TWO CHANCES TO ANSWER"
  37. 430 [153]" THE QUESTION CORRECTLY. RIGHT$F YOU GET THE"
  38. 432 [153]" QUESTION RIGHT ON YOUR FIRST ATTEMPT,"
  39. 434 [153]" YOU GET TWO POINTS, AND ONE POINT IF"
  40. 436 [153]" YOU ANSWER IT CORRECTLY ON YOUR "
  41. 438 [153]" SECOND ATTEMPT."
  42. 445 [141]820
  43. 446 [153]"STOPLOAD VALXAMPLE:     2 + 2 =  "
  44. 450 [153]" (null)(null)(null) TYPE IN '4' FOR A RESPONSE.
  45. 485 GOSUB820
  46. 495 RETURN
  47. 700 REM <YES>
  48. 705 S=54272:FORE=STOS+28:POKEE,0:NEXT
  49. 710 POKE54296,15:POKE54277,42:POKE54278,250
  50. 715 POKE54276,23:POKE54273,23:POKE54272,191
  51. 720 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  52. 725 POKE54296,0:RETURN
  53. 730 REM <NO>
  54. 735 S=54272:FORE=STOS+28:POKEE,0:NEXT
  55. 740 POKE54296,15:POKE54277,18:POKE54278,242
  56. 745 POKE54276,33:POKE54273,4:POKE54272,48
  57. 750 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  58. 755 POKE54296,0:RETURN
  59. 760 REM <BLIP>
  60. 765 S=54272:FORE=STOS+28:POKEE,0:NEXT
  61. 770 POKE54296,7:POKE54277,42:POKE54278,250
  62. 775 POKE54276,23:POKE54273,23:POKE54272,191
  63. 780 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  64. 785 POKE54296,0:RETURN
  65. 790 FORT=1TO500:NEXT:RETURN
  66. 791 FORT=1TO1000:NEXT:RETURN
  67. 792 FORT=1TO2000:NEXT:RETURN
  68. 793 FORT=1TO3000:NEXT:RETURN
  69. 795 FORT=1TO5000:NEXT:RETURN
  70. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,1:POKEUX,1:POKE646,5
  71. 801 PRINT"     A TPUG EDUCATIONAL PROGRAM
  72. 802 [153]"         FOR C 64 COMPUTERS
  73. 803 PRINT"             GRADES 1-4
  74. 804 [141]791
  75. 805 [153]"                                        WAIT";
  76. 806 [153]"                                        WAIT";
  77. 807 [153]"            QUIZ ADDITION               WAIT";
  78. 808 [153]"                                        WAIT";
  79. 809 [153]"                                        WAIT"
  80. 810 [141]792:[141]760
  81. 811 [153]"          INSTRUCTIONS?  Y/N
  82. 812 GETUI$:IFUI$<>"Y"ANDUI$<>"N"THEN812
  83. 813 IFUI$="Y"THENGOSUB400
  84. 814 GOTO1000
  85. 820 GOSUB791:GOSUB760
  86. 822 POKEUN,0:PRINTLEFT$(UD$,24);"[144] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146][155]"
  87. 824 GETUI$:IFUI$<>" "THEN824
  88. 826 RETURN
  89. 830 GOSUB791:GOSUB760
  90. 835 GOSUB791:GOSUB760
  91. 837 POKEUN,0:PRINTLEFT$(UD$,24);"[158] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146][155]"
  92. 840 GETUI$:IFUI$<>" "THEN840
  93. 845 RETURN
  94. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  95. 855 PRINT" --------------------------------------"
  96. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS [210][197][212][213][210][206][146]
  97. 865 UH[178]0:[153]"":[142]
  98. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  99. 902 [139]UW[178]0[167]US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  100. 903 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  101. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  102. 905 UD$[178]"":UP$[178]"                                      "
  103. 909 [142]
  104. 910 [141]900:[153]"LOAD "
  105. 920 [137]800
  106. 1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6:[141]790
  107. 1060 UP[178]0:[153]"LOADCLOSE":[151]UT,UL%
  108. 1070 QN[178]10:NA[178]1:PT[178]0
  109. 1100 XX[178]40
  110. 1120 LM[178]5:RM[178]35:SL[178]6:
  111. 1275 [153]"       LENHOOSE A LEVEL (1-5)? ";
  112. 1277 US$[178]"12345":UL[178]1:[141]35:L[178][197](UR$)
  113. 1280 N1[178]2[172]L:N2[178]5[172]L:UP[178]0
  114. 1290 [135] Q$
  115. 1300 [129]N[178]1[164]QN
  116. 1310 [129]I[178]1[164]2:A(I)[178][181]([187](1)[172](N2[171]N1[170]1))[170]N1:[130]
  117. 1320 [153]"LOAD":S$[178]"(null)(null)RIGHT$(null)CLOSE(null)LEN(null)(null)VAL:"[170][196](PT)[170]" POINT":[139]PT[179][177]1[167]S$[178]S$[170]"S"
  118. 1330 LN[178]SL:UG$[178]"(null)UESTION #":[153]"LOAD":[141]1770:TR[178]0
  119. 1340 QN$[178][202]([196](N),2)[170]". "
  120. 1350 S$[178]QN$[170]Q$:LN[178]SL[170]2:[141]1770
  121. 1360 S$[178][196](A(1))[170]" +"[170][196](A(2))[170]" = "[170]"   "[170]"CMDCMDCMD"
  122. 1370 LN[178]LN[170]3:[141]1770
  123. 1380 UL[178]3:US$[178]"0123456789":[141]35:IN[178][197](UR$):UR$[178]""
  124. 1390 AN[178]A(1)[170]A(2):LN[178]LN[170]3
  125. 1400 [139] [182](AN[171]IN)[179].1 [167] 1480
  126. 1410 TR[178]TR[170]1
  127. 1420 [139]TR[179]2[167]1440
  128. 1430 [137]1450
  129. 1440 [141]730
  130. 1445 S$[178]"DEF (null)OU ARE WRONG!CLOSE(null)RY AGAIN!LIST":[141]1770:[141]2000:[137]1350
  131. 1450 S$[178]"PRINT      (null)HE CORRECT ANSWER IS"[170][196](AN)[170]"        LIST":[141]730
  132. 1460 [141]1770:[141]830
  133. 1470 [130] N:[137]1500
  134. 1480 [141]700:S$[178]"SYS (null)HAT'S LEN(null)(null)(null)VALLEN(null)! CHR$OOD (null)ORK!LIST":[141]1770:[141]791
  135. 1490 PT[178]PT[170]3[171]TR[171]1:[137]1470
  136. 1500 [153]"LOAD":UH[178]1:UG$[178]"     PAGE":UP[178]1
  137. 1505 LN[178]4:S$[178]" (null)HAT'S THE END OF THIS QUIZ.":[141]1770
  138. 1510 LN[178]LN[170]2:S$[178]" (null)OU GOT"[170][196](PT)[170]" POINTS.":[141]1770
  139. 1520 MX[178]QN[172]2
  140. 1530 LN[178]LN[170]4:S$[178]" (null)HE MOST YOU COULD GET WAS"[170][196](MX)[170]"   POINTS.":[141]1770
  141. 1540 SC[178]PT[173]MX:[139]SC[177].85[167]S$[178]" VALXCELLENT WORK!":[137]1580
  142. 1550 [139]SC[177].70[167]S$[178]" CHR$OOD WORK!":[137]1580
  143. 1560 [139]SC[177][178].50[167]S$[178]" (null)EEDS MORE WORK!"
  144. 1570 [139]SC[179].50[167]S$[178]" (null)LEASE SEE THE TEACHER!"
  145. 1580 LN[178]LN[170]4:[141]1770
  146. 1590 [153]:[153]:
  147. 1610 [153]"      (null)ANT TO PLAY AGAIN ?  Y/N ";:UL[178]1:US$[178]"YN":[141]35:
  148. 1615 [139] UR$[178]"Y" [167] 1000
  149. 1625 [153]"LOAD  (null)ETURNING TO THE MAIN (null)VAL(null)(null)
  150. 1630 LOAD"MENU",8
  151. 1635 RUN
  152. 1640 END
  153. 1770 REM FORMAT S$
  154. 1780 DN$=""
  155. 1790 PRINTLEFT$(DN$,LN);
  156. 1800 LL=RM-LM+1
  157. 1810 FX=0:LE=LEN(S$):IFLE<=LLTHEN1890
  158. 1820 FORL=1TOLL:IF(ASC(MID$(S$,L,1))AND127)<32THENFX=FX+1:LL=LL+1
  159. 1830 NEXTL
  160. 1840 FORL=LL+1TO1STEP-1
  161. 1850 IFMID$(S$,L,1)=" "THEN1870
  162. 1860 NEXTL:L=LL+1:LF=1
  163. 1870 PRINTTAB(LM)LEFT$(S$,L-1);:PRINT:IFLM+L-1=<XXTHENPRINT
  164. 1880 S$=RIGHT$(S$,LE-L+LF):LF=0:LN=LN+2:GOTO1800
  165. 1890 PRINTTAB(LM)S$;
  166. 1900 RETURN
  167. 1940 REM  ****DATA****
  168. 1950 DATA "[193]DD: "
  169. 1960 DATA END,END
  170. 2000 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4):GOSUB835:GOSUB860
  171. 2010 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%:POKEU4,U4%
  172. 2020 PRINT"[145]                                        "
  173. 2030 RETURN
  174. 3000 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  175. 3010 REM PROJECT DIRECTOR: FRANK WINTER
  176. 3020 REM PROGRAM NAME: QUIZ MATH
  177. 3030 REM WRITTEN BY JO ANN COMITO
  178. 3040 REM REVISED BY R. WENZEL
  179. 3050 REM REVISED BY R MACNAUGHTON 82
  180. 3060 REM UPDATED BY BILL CUMBERLAND 90
  181. 3100 REM QN QUESTION NUMBER
  182. 3110 REM NA NUMBER OF ANSWERS FOR EACH
  183. 3120 REM PT POINTS EARNED
  184. 3130 REM LM/RM LEFT/RIGHT MARGIN
  185. 3140 REM LN WHERE PRINTED
  186. 3150 REM SL STARTING LINE FOR SCREEN
  187. 3160 REM XX CHARACTERS PER LINE
  188. 3170 REM Q$ QUESTION A$(N) ANSWERS
  189. 3180 REM TR TRIES AT GETTING ANSWER
  190. 3190 REM CA NUMBER OF RIGHT ANSWER
  191. 3200 REM S$ STRING TO BE PRINTED
  192. 3210 REM YA YOUR ANSWER NUMBER
  193. 3220 REM N2 MAXIMUM NUMBER
  194. 3230 REM N1 MINIMUM NUMBER
  195.